library(rstatatools)locsf is a sf class object.
library(leaflet)
library(leafem)
library(rstatatools)
library(sf)
#> Linking to GEOS 3.8.1, GDAL 3.1.2, PROJ 7.1.0
leaflet() %>%
tdtmap(type = "terrain") %>%
addFeatures(locsf, weight = 0.1, radius = 0.1)To add annotion on Tiandi map, use:
leaflet() %>%
tdtmap(type = "terrain") %>%
tdtmap_annotion() %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")leaflet() %>%
gdmap() %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Annotion:
leaflet() %>%
gdmap(type = "satellite") %>%
gdmap_annotion() %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Normal:
leaflet() %>%
geoqmap() %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")PurplishBlue:
leaflet() %>%
geoqmap(type = "PurplishBlue") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Gray:
leaflet() %>%
geoqmap(type = "Gray") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Warm:
leaflet() %>%
geoqmap(type = "Warm") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")ENG:
leaflet() %>%
geoqmap(type = "ENG") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")LabelAndBoundaryLine:
leaflet() %>%
geoqmap(type = "LabelAndBoundaryLine") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Subway:
leaflet() %>%
geoqmap(type = "Subway") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")WorldHydroMap:
leaflet() %>%
geoqmap(type = "WorldHydroMap") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Gray_OnlySymbol:
leaflet() %>%
geoqmap(type = "Gray_OnlySymbol") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Gray_Reference:
leaflet() %>%
geoqmap(type = "Gray_Reference") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")PurplishBlue_OnlySymbol:
leaflet() %>%
geoqmap(type = "PurplishBlue_OnlySymbol") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")PurplishBlue_Reference:
leaflet() %>%
geoqmap(type = "PurplishBlue_Reference") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Warm_OnlySymbol:
leaflet() %>%
geoqmap(type = "Warm_OnlySymbol") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")Warm_Reference:
leaflet() %>%
geoqmap(type = "Warm_Reference") %>%
addFeatures(locsf, weight = 0.1,
radius = 0.1, color = "red")